home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / demo / aga / dft_par2.lha / paradisio! / DFT-Install next >
Text File  |  1997-03-27  |  2KB  |  61 lines
  1. ; Install Script for Paradisio! From Drifters! By Zinko (Je Suis Lent! ;)
  2. ;
  3.  
  4. (COMPLETE 0)
  5. (message "\nDRIFTERS\n"
  6.          "INVITES YOU TO\n\n"
  7.          "PARADISIO!\n\n"
  8.          "This installer will create a drawer in your chosen\n"
  9.          "destination directory called Paradisio.")
  10.  
  11. ; Ask where to install Paradisio
  12.    (set @default-dest "Drifters:")
  13.    (set dest1
  14.       (askdir
  15.          (prompt "\nSelect the location to install the Paradisio.\n")
  16.          (help "Choose a destination partition or directory"
  17.                  " to install Paradisio. The Installer will"
  18.                  " create a directory called 'Paradisio' in the"
  19.                  " location directory you choose and then install"
  20.                  " Paradisio to it."
  21.          (default @default-dest)
  22.          )
  23.       )
  24.    )
  25.   
  26. (set @default-dest (tackon dest1 "DFT-Paradisio"))
  27. (set datadest (tackon dest1 "DFT-Paradisio/"))
  28.  
  29. (makedir @default-dest (safe) (infos))
  30.  
  31.  
  32. ; Copying Paradisio to directory...
  33.  
  34. (complete 10)
  35.  
  36. ; Joining Paradisio...
  37.  
  38. (makeassign "Paradisko" datadest)
  39.  
  40. (working "Joining The Demo-Files...")
  41. (run "join Paradisio.000 Paradisio.001 Paradisio.002 to Paradisko:Paradisio.exe")
  42.    
  43.    (copyfiles (source "Paradisio.icon")
  44.               (dest @default-dest)
  45.               (newname "Paradisio.info"))
  46.  
  47.  
  48.    (copyfiles (source "Paradisio.nfo")
  49.               (dest @default-dest))
  50.               
  51.    (copyfiles (source "Paradisio")
  52.               (dest @default-dest))
  53.               
  54.  
  55. (run "assign Paradisko: remove")
  56.  
  57. (complete 100)
  58.  
  59. (exit "\n The Installation was successful.\n\nYou can find Paradisio\nin " datadest"\n\nNow go and enjoy the party!"
  60.       (quiet))
  61.